home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 13 C128 Telecom / CISEXE.SFX / cis.exe < prev    next >
Encoding:
Text File  |  1990-02-12  |  6.9 KB  |  181 lines
  1. ;CIS.EXE SCRIPT FOR ├OMPU╙ERVE REV. 4.30 (UPLOAD VERSION)
  2.    P"":P"":P"":P"":P"":P"":P"":P"":P"":P""
  3.    P"╘HIS SCRIPT WILL SCRATCH CIS.MAIL, MAIL.SCAN, AND"
  4.    P"WILL SCRATCH ANY FILES WITH A NAME STARTING WITH 'GO *'."
  5.    P"╘HIS MEANS ALL FORUM MESSAGES FROM PREVIOUS SESSIONS"
  6.    P"(SUCH AS 'GO CBMAPP') WILL BE SCRATCHED.":P""
  7.    P"╨RESS ┘ TO CONTINUE THIS SCRIPT."
  8.    Y"├ONTINUE_├╔╙.┼╪┼":G5
  9.    E
  10. 5  ├> "S0:GO *\RS0:CIS.MAIL\RS0:MAIL.SCAN\R\R"
  11.    Y"╔S_A_GOOD_PATH_IN_BUFFER_2_NOW":├2:G8
  12.    ├2:├R"Y";BUFFER #2 HAS PATHS FOR NAVIGATION
  13.    ├L;***THIS IS FOR INTERACTIVE LOADING AND USING MANY 'PATHS' FILES
  14.    ;THE ABOVE LINE CAN BE CHANGED TO READ -- ├L"PATHS"
  15. 8  ┴R:├«19:├1:├R"Y";SET BUFFER 1 FOR CAPTURE
  16. 20 ├A "\19\160":S 20:T "^C":S1;DIAL NUMBER IN HOME POSITION TRANSMIT CTRL-C
  17.    T"\R":S5;CHECK FOR TELENET CONNECTION
  18. 22 IF "╘┼╠┼╬┼╘":W"╬┴╠=":T"D1":W"@":T"C 202202":G22
  19.    IF "?└":├H"Y":G 20 ; DETECT A GARBAGE CONNECTION AND HANGUP
  20.    IF "╚OST ╬AME:":T"CIS":G22
  21.    IF "╒SER ╔─: "
  22.    EI
  23.    ┴T;TRANSMIT FIRST LINE OF YOUR PATH FILE - ╘╚╔╙ ═╒╙╘ ┬┼ ┘╧╒╥ ╒╔─
  24.    IF "TEMPORARILY UNAVAILABLE":├H"Y":E;DETECT ├╔╙ MAINTENANCE AND HANGUP
  25.    IF "╨ASSWORD: ";GOOD CONNECTION ├╔╙ ASKING FOR YOUR PASSWORD
  26.    EI
  27.    ┴T:├B;TRANSMIT SECOND LINE OF YOUR PATH FILE - ╘╚╔╙ ═╒╙╘ ┬┼ ┘╧╒╥ ╨┴╙╙╫╧╥─
  28.    IF "├OMPU╙ERVE ═AIL":GS112:G48
  29.    IF "┼LECTRONIC ═AIL":├B:GS100:G48;DETECT MAIL
  30.    IF "╘╧╨":T "^P":S5:├B:├R"Y":G24;NORMAL CONNECTION WITH NO MAIL
  31.    IF "╫HAT'S ╬EW":W"!":├B:├S"WHAT.NEW":├R"Y":G24;WEEKLY ╫HAT'S ╬EW CONNECTION
  32.    EI
  33. ; GO ACTIONS
  34. 24  $ = ┬ ; GET THE NEXT LINE OF YOUR PATH FILE
  35. 26  IF $ = "MANUAL":E; ALLOW MANUAL CONTROL OF THIS TIME ONLINE
  36.     IF $ = "OFF":T$:S100:├H:E
  37.     IF $ = "DRIVE":GS200:G24
  38.     IF $ = "JOIN":GF"JOIN.SCR":G24
  39.     T$ ;TRANSMIT THE PATH LINE THAT WAS JUST PLACED IN $
  40. 48  IF "UNAVAILABLE":GS90:G26; DETECT FORUM MAINTENANCE AND SKIP THIS FORUM
  41.     IF "CLOSED FOR MAINT":GS90:G26
  42.     IF "├OMPU╙ERVE ═AIL":├B:GS104:G26
  43.     IF "╫ELCOME TO":G50
  44.     EI;END IF TO DETECT LOCATION
  45. 50  T "^S":┴B $:T "^Q"
  46. 52  IF "╞ORUM !":├B:GS140:┴B:G26
  47.     IF "═ESSAGES !":├B:GS 160:┴B:G26
  48.     IF "╨RESS <├╥> !":GS56:G52
  49.     EI;END IF TO START FORUM OPERATIONS
  50. 56  T"OPT;MOD;COM;S"R
  51. ; FORUM OR MAIL UNAVAILABLE
  52. 90  $=┬                            ;╘HESE LINES MOVE THRU YOUR PATH FILE
  53.     IF $ = "GO":R                  ;LOOKING FOR THE NEXT GO COMMAND, OFF
  54.     IF $ = "OFF":T $:S20:├H"Y":E   ;COMMAND, OR MANUAL COMMAND. ╘HIS ALLOWS
  55.     IF $ = "MANUAL":R              ;AUTOMATIC CONTROL TO CONTINUE AFTER
  56.     IF $ = "DRIVE":GS200:G90       ;ENCOUNTERING A DOWN FORUM.
  57.     G 90
  58. ; MAIL ACTIONS PORTION OF CIS.EXE
  59. 100 IF "╘╧╨":G102
  60.     IF "╫HAT'S ╬EW":W"!":├B:├S"WHAT.NEW":├R"Y":T"GO MAIL":├B:S5:G104
  61.     EI
  62. 102 T"^P":S10:T"GO MAIL":├B:S5
  63. 104 IF "UNAVAILABLE":├B:GS90:G26;DETECT ├╔╙ MAINTENANCE AND SKIP MAIL
  64.     IF "CLOSED FOR MAINT":GS90:G26
  65.     IF "╬O MESSAGES":├B:W "╚┼╠P! ":G108;DETECT NORMAL ENTRY TO SEND MAIL
  66.     IF "MAIN MENU!":T"M":G104
  67.     IF "═ODE ═ENU":T"SET MODE PROMPT":G104
  68.     IF "═AIN ═ENU":T"SET MODE PROMPT":G104
  69.     IF "═AIL!":T"SET MODE PROMPT":G104
  70.     IF "╚┼╠P! ";DETECT ENTRY WITH MAIL WAITING
  71.     EI;END IF TO START E-PLEX OPERATIONS
  72.     T "SCA";CHECK FOR TYPE OF MAIL
  73.     IF "* ┬INARY *":GS114:G108;BINARY MAIL SHOULD BE SEPERATED FROM OTHER MAIL
  74.     IF "╚┼╠P! ":├B:├R"Y":G106;DETECT NO BINARY MAIL
  75.     EI;END IF TO DETERMINE TYPE OF MAIL
  76. 106 ├D"\160\3":T"DOW/PRO:QB 1-100":W "COMPUTER: ":T "CIS.MAIL";DOWNLOAD MAIL
  77.     W "╚┼╠P! ":├D"\32\3"
  78. 108 $ = ┬;GET NEXT COMMAND FROM A PATH FILE
  79.     IF $ = "DRIVE":GS200:G108
  80.     IF $ = "OFF":R
  81.     IF $ = "GO":G 116
  82.     IF $ = "COM":T$:GS110:G108
  83.     IF $ = "DOW":GS109:G 108
  84.     IF $ = "MANUAL":R
  85.     P"╬OT A COMMAND FOR THIS ─128 SCRIPT (108)":E
  86. 109 ├D"\160\3":T"DOW/PRO:QB ╢":┴T:W"COMPUTER: ":┴T:W"╚┼╠P! ":├D"\32\3":R
  87. ; SUB-ROUTINE FOR POSTING MAIL
  88. 110 ├D"\160\3":T "/UPL/TYP:ASC/PRO:QB":W "COMPUTER: ":T┬
  89.     W "[ ─ONE ]":├D"\32\3":T"/EX":W"╔─):":┴T
  90.     W "╙UBJECT: ":┴T:W "(┘ OR ╬)!":T "Y":R
  91. 112 IF "═ODE ═ENU":T"SET MODE PROMPT":G112
  92.     IF "MAIN MENU!":T"M":G112
  93.     IF "═AIL!":T"SET MODE PROMPT":G112
  94.     IF "═AIN ═ENU":T"SET MODE PROMPT":G112
  95.     IF "* ┬INARY *":G114
  96.     IF "╚┼╠P! ":├B:├R"Y":G106
  97.     EI
  98. 114 W "╚┼╠P!":├B:├S"MAIL.SCAN":├R"Y":G108
  99. 116 T$
  100. 118 IF "╘HANK YOU":R
  101.     IF "(┘ OR ╬)!":T "Y":R
  102.     IF "╧NE MOMENT PLEASE...":R
  103.     EI;END IF FOR EXIT OF ├╔╙ MAIL
  104. ;SUB-ROUTINE FOR FORUM PROMPT ACTIONS
  105. 140 $ = ┬
  106. 142 IF $ = "DRIVE":GS200:G140
  107.     IF $ = "SETUP":GF"SETUP.SCR":S5:G140
  108.     IF $ = "GO":R
  109.     IF $ = "MES":T$:S5:GS 160:G142
  110.     IF $ = "RW":T"RW;SCR":├B:W"╞ORUM !%":├B:S5:G140
  111.     IF $ = "RTN":T"RTN;SCR":├B:W"╞ORUM !%":├B:S5:G140
  112.     IF $ = "COM":GS144:W"╞ORUM !%":G140
  113.     IF $ = "REP":GS146:W"╞ORUM !%":G140
  114.     IF $ = "LIB":T$:S5:GS 190:G142
  115.     IF $ = "OFF":R
  116.     IF $ = "OPT":T$:W"╞ORUM !%":G140
  117.     IF $ = "WEA":├B:T$:W"┼ND OF REPORT :":T"":├B:W"╞ORUM !%":G140
  118.     IF $ = "MANUAL":R
  119.     IF $ = "HI":T"HI;D":W"╞ORUM !%":G140
  120.     P"╬OT A COMMAND FOR THIS ─128 SCRIPT (140)":E
  121. ;MESSAGE UPLOAD SCRIPT COMMANDS
  122. 144 GS 148:W"!%":┴T:W "POSTED":R
  123. 146 GS 148:W"!%":T"POS":W "POSTED":R
  124. 148 T$:├D"\160\3":T "/UPL/PRO:B":W"COMPUTER":┴T:W "[─ONE]":├D"\32\3":T"/EX":R
  125. ;SUB-ROUTINE FOR MESSAGE PROMPT ACTIONS
  126. 160  $=┬
  127. 161  IF $ = "DRIVE":GS200:G160
  128.     IF $ = "SETUP":GF"SETUP.SCR":S5:G160
  129.     IF $ = "GO":R
  130.     IF $ = "RW":T"RW;SCR":├B:W"═ESSAGES !%":├B:S5:G160
  131.     IF $ = "REA":├B:S5:T$:W"═ESSAGES !%":├B:S5:G160
  132.     IF $ = "DAY":T"SCA QUI ╢":T$:├B:W"═ESSAGES !%":├B:S5:G160
  133.     IF $ = "SCA":T"SCA QUI NEW":├B:W"═ESSAGES !%":├B:S5:G160
  134.     IF $ = "COM":GS144:W"═ESSAGES !%":G160
  135.     IF $ = "HI":T"HI;D":W"═ESSAGES !%":G160
  136.     IF $ = "RTN":T"RTN;SCR":├B:W"═ESSAGES !%":├B:S5:G160
  137.     IF $ = "REP":GS146:W"═ESSAGES !%":G160
  138.     IF $ = "OPT":T$:W"╞ORUM !%":G160
  139.     IF $ = "OFF":R
  140.     IF $ = "LIB":T$:S5:GS 190:G161
  141.     IF $ = "WEA":├B:S5:T$:W"┼ND OF REPORT :":├B:T"":W"═ESSAGES !%":G160
  142.     IF $ = "MES":G160
  143.     IF $ = "MANUAL":R
  144.     P"╬OT A COMMAND FOR THIS ─128 SCRIPT (160)":E
  145. ;SUB-ROUTINE FOR LIBRARY PROMPT ACTIONS
  146. 190  W "╠╔┬ "
  147. 192  $ = ┬
  148.     IF $ = "DRIVE":GS200:G192
  149.     IF $ = "SCA":├B:T"SCA SHO":GS194:├B:G192
  150.     IF $ = "DOW":G 196
  151.     IF $ = "UPL":G 198
  152.     IF $ = "KEY":├B:T$:GS194:├B:G192
  153.     IF $ = "LIB":T$:G 190
  154.     IF $ = "OFF":R
  155.     IF $ = "GO":R
  156.     IF $ = "MANUAL":R
  157.     IF $ = "MES":T$:S5:GS 40:G192
  158.     P"╬OT A COMMAND FOR THIS ─128 SCRIPT (190)":E
  159. 194  W "╠╔┬ "
  160.     IF"\R":G194 ; WAS NOT A PROMPT - WAIT FOR NEXT ╠╔┬
  161.     IF " !" ;TRUE PROMPT
  162. 195  EI
  163.     R
  164. ;DOWNLOADING ACTIONS
  165. 196 ├D"\160\3":T"DOW/PRO:QB ╢":┴T
  166.     W"YOUR COMPUTER":┴T
  167.     W"╠╔┬":├D"\32\3":G192
  168. ;UPLOADING ACTIONS
  169. 198 ├D"\160\3":T"UPL/PRO:QB ╢";TELLS CIS TO START AN UPLOAD USING CIS-QB
  170.     T"TYPE:╢":┴T;TRANSMITS NEXT PATH LINE - THE FILE TYPE
  171.     W"╞ILE NAME":┴T;TRANSMITS THE FILE NAME
  172.     W"YOUR COMPUTER:":┴T;TRANSMITS NEXT PATH LINE - DISK FILENAME
  173.     W"┼NTER ╞ILE ─ES":├D"\32\3":$=┬:├4:├R"Y":├L$:├T"":T"/EXIT":├1
  174.     W"┼NTER ╦EYWORDS":┴T
  175.     W"┼NTER ╘ITLE":┴T:W"(┘ OR ╬)?":T"Y"
  176.     W"╠╔┬":G192
  177. ;DOS FUNCTIONS
  178. 200  IF $="DRIVE8":#8:R
  179.      IF $="DRIVE9":#9:R
  180.      IF $="DRIVE10":#10:R
  181.